home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / perl / examples / uudecode < prev    next >
Encoding:
Text File  |  1991-02-24  |  391 b   |  22 lines
  1. #! /bin/local/perl
  2.  
  3. # Uudecode in perl - handles multiple uuencoded files in one.
  4.  
  5. $writing = 0;
  6. while (<>) {
  7.     if (/^begin [0-9]+ (\S+)$/) {
  8.         close OUT if $writing;
  9.         $writing = 1;
  10.         open(OUT,">$1") || die "Cannot open $1 ($!)\n";
  11.     }
  12.     elsif (/^end$/) {
  13.         close OUT if $writing;
  14.         $writing = 0;
  15.     }
  16.     elsif ($writing) {
  17.         $line = unpack('u',$_);
  18.         print OUT $line;
  19.     }
  20. }
  21. close OUT if $writing;
  22.